object frmAlterarPrecosPorPercentual: TfrmAlterarPrecosPorPercentual
  Left = 458
  Top = 163
  BorderStyle = bsSingle
  Caption = 'Altera'#231#227'o de Pre'#231'os por Percentual'
  ClientHeight = 566
  ClientWidth = 535
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object pnlDados: TPanel
    Left = 0
    Top = 41
    Width = 535
    Height = 197
    Align = alTop
    BevelOuter = bvNone
    TabOrder = 0
    object Label4: TLabel
      Left = 8
      Top = 48
      Width = 42
      Height = 13
      Caption = 'Reajuste'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label5: TLabel
      Left = 8
      Top = 8
      Width = 41
      Height = 13
      Caption = 'Empresa'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label1: TLabel
      Left = 56
      Top = 69
      Width = 8
      Height = 13
      Caption = '%'
    end
    object Label2: TLabel
      Left = 8
      Top = 88
      Width = 31
      Height = 13
      Caption = 'Se'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label6: TLabel
      Left = 80
      Top = 48
      Width = 30
      Height = 13
      Caption = 'Marca'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label3: TLabel
      Left = 8
      Top = 128
      Width = 48
      Height = 13
      Caption = 'Subse'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object Label7: TLabel
      Left = 10
      Top = 173
      Width = 36
      Height = 13
      Caption = 'Usu'#225'rio'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
    end
    object lbUsuario: TLabel
      Left = 56
      Top = 173
      Width = 489
      Height = 13
      AutoSize = False
      Caption = 'C'#243'digo e Nome do Usu'#225'rio'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object stEmpresa: TStaticText
      Left = 80
      Top = 24
      Width = 446
      Height = 22
      AutoSize = False
      BevelKind = bkSoft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
    end
    object edtEmpresa: TEdit
      Left = 8
      Top = 24
      Width = 49
      Height = 21
      Hint = 'C'#243'digo da empresa'
      CharCase = ecUpperCase
      MaxLength = 20
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnExit = edtEmpresaExit
      OnKeyPress = KeyPress_SomenteInteiro
    end
    object btnEmpresa: TBitBtn
      Left = 56
      Top = 24
      Width = 24
      Height = 21
      Hint = 'Buscar empresa'
      Caption = '...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnEmpresaClick
    end
    object edtReajuste: TEdit
      Left = 8
      Top = 64
      Width = 41
      Height = 21
      Hint = 'Porcentagem do reajuste de pre'#231'o nos produtos'
      BiDiMode = bdLeftToRight
      CharCase = ecUpperCase
      ParentBiDiMode = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnKeyPress = edtReajusteKeyPress
    end
    object edtSecao: TEdit
      Left = 8
      Top = 104
      Width = 49
      Height = 21
      Hint = 'C'#243'digo de se'#231#227'o'
      CharCase = ecUpperCase
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 7
      OnExit = edtSecaoExit
    end
    object btnSecao: TBitBtn
      Left = 56
      Top = 104
      Width = 21
      Height = 21
      Hint = 'Buscar se'#231#227'o'
      Caption = '...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 8
      TabStop = False
      OnClick = btnSecaoClick
    end
    object edtMarca: TEdit
      Left = 80
      Top = 64
      Width = 121
      Height = 21
      Hint = 'C'#243'digo de Marca'
      HelpType = htKeyword
      HelpKeyword = 'Marca do produto'
      CharCase = ecUpperCase
      MaxLength = 15
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnExit = edtMarcaExit
    end
    object btnMarca: TBitBtn
      Left = 200
      Top = 64
      Width = 21
      Height = 21
      Hint = 'Buscar marca'
      Caption = '...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      TabStop = False
      OnClick = btnMarcaClick
    end
    object stSecao: TStaticText
      Left = 77
      Top = 104
      Width = 448
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 9
    end
    object stMarca: TStaticText
      Left = 221
      Top = 64
      Width = 304
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 6
    end
    object edtSubSecao: TEdit
      Left = 8
      Top = 144
      Width = 49
      Height = 21
      Hint = 'C'#243'digo de subse'#231#227'o'
      CharCase = ecUpperCase
      MaxLength = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 10
      OnExit = edtSubSecaoExit
    end
    object btnSubSecao: TBitBtn
      Left = 56
      Top = 144
      Width = 21
      Height = 21
      Hint = 'Buscar subse'#231#227'o'
      Caption = '...'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 11
      TabStop = False
      OnClick = btnSubSecaoClick
    end
    object stSubSecao: TStaticText
      Left = 77
      Top = 144
      Width = 448
      Height = 21
      AutoSize = False
      BorderStyle = sbsSingle
      TabOrder = 12
    end
  end
  object grpbxPrevia: TGroupBox
    Left = 0
    Top = 278
    Width = 535
    Height = 288
    Align = alTop
    Caption = 'Pr'#233'via'
    TabOrder = 1
    Visible = False
    object pnlPreviaBotoes: TPanel
      Left = 2
      Top = 247
      Width = 531
      Height = 39
      Align = alBottom
      BevelOuter = bvNone
      TabOrder = 1
      object Label8: TLabel
        Left = 8
        Top = 16
        Width = 55
        Height = 13
        Caption = 'Quantidade'
      end
      object lbQuantidade: TLabel
        Left = 72
        Top = 16
        Width = 8
        Height = 13
        Caption = '0'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object btnCancelar: TBitBtn
        Left = 272
        Top = 8
        Width = 89
        Height = 26
        Hint = ' Cancela Altera'#231#227'o em Massa '
        Caption = 'Cancelar'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        OnClick = btnCancelarClick
        Glyph.Data = {
          DE010000424DDE01000000000000760000002800000024000000120000000100
          0400000000006801000000000000000000001000000000000000000000000000
          80000080000000808000800000008000800080800000C0C0C000808080000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
          333333333333333333333333000033338833333333333333333F333333333333
          0000333911833333983333333388F333333F3333000033391118333911833333
          38F38F333F88F33300003339111183911118333338F338F3F8338F3300003333
          911118111118333338F3338F833338F3000033333911111111833333338F3338
          3333F8330000333333911111183333333338F333333F83330000333333311111
          8333333333338F3333383333000033333339111183333333333338F333833333
          00003333339111118333333333333833338F3333000033333911181118333333
          33338333338F333300003333911183911183333333383338F338F33300003333
          9118333911183333338F33838F338F33000033333913333391113333338FF833
          38F338F300003333333333333919333333388333338FFF830000333333333333
          3333333333333333333888330000333333333333333333333333333333333333
          0000}
        NumGlyphs = 2
      end
      object btnGravar: TBitBtn
        Left = 184
        Top = 8
        Width = 89
        Height = 26
        Hint = ' Confirma Altera'#231#227'o em Massa '
        Caption = '&Gravar'
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnClick = btnGravarClick
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
          7700333333337777777733333333008088003333333377F73377333333330088
          88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
          000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
          FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
          99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
          99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
          99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
          93337FFFF7737777733300000033333333337777773333333333}
        NumGlyphs = 2
      end
    end
    object dbgrdAlteracao: TDBGrid
      Left = 2
      Top = 15
      Width = 531
      Height = 232
      Align = alClient
      DataSource = dtsExibirAlteracaoPreco
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
      TabOrder = 0
      TitleFont.Charset = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -11
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
      Columns = <
        item
          Expanded = False
          FieldName = 'PCODPRODUTO'
          Title.Alignment = taCenter
          Title.Caption = 'C'#243'digo'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PDSCPRODUTO'
          Title.Alignment = taCenter
          Title.Caption = 'Produto'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PPRECOATUAL'
          Title.Alignment = taCenter
          Title.Caption = 'Pre'#231'o Atual'
          Visible = True
        end
        item
          Expanded = False
          FieldName = 'PPRECONOVO'
          Title.Alignment = taCenter
          Title.Caption = 'Novo Pre'#231'o'
          Visible = True
        end>
    end
  end
  object pnlBotoes: TPanel
    Left = 0
    Top = 238
    Width = 535
    Height = 40
    Align = alTop
    TabOrder = 2
    object btnPrevia: TBitBtn
      Left = 144
      Top = 8
      Width = 89
      Height = 26
      Hint = ' Exibe uma pr'#233'via da Altera'#231#227'o em Massa '
      Caption = '&Pr'#233'via'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = btnPreviaClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
        7700333333337777777733333333008088003333333377F73377333333330088
        88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
        000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
        FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
        99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
        99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
        99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
        93337FFFF7737777733300000033333333337777773333333333}
      NumGlyphs = 2
    end
    object btnVoltar: TBitBtn
      Left = 232
      Top = 8
      Width = 89
      Height = 26
      Hint = ' Cancela Altera'#231#227'o em Massa '
      Caption = '&Voltar'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = btnVoltarClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555
        55555FFFFFFF5F55FFF5777777757559995777777775755777F7555555555550
        305555555555FF57F7F555555550055BB0555555555775F777F55555550FB000
        005555555575577777F5555550FB0BF0F05555555755755757F555550FBFBF0F
        B05555557F55557557F555550BFBF0FB005555557F55575577F555500FBFBFB0
        B05555577F555557F7F5550E0BFBFB00B055557575F55577F7F550EEE0BFB0B0
        B05557FF575F5757F7F5000EEE0BFBF0B055777FF575FFF7F7F50000EEE00000
        B0557777FF577777F7F500000E055550805577777F7555575755500000555555
        05555777775555557F5555000555555505555577755555557555}
      NumGlyphs = 2
    end
    object btnFechar: TBitBtn
      Left = 320
      Top = 8
      Width = 89
      Height = 26
      Hint = ' Fecha Tela '
      Caption = '&Fechar'
      ModalResult = 3
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = btnFecharClick
      Glyph.Data = {
        DE010000424DDE01000000000000760000002800000024000000120000000100
        0400000000006801000000000000000000001000000000000000000000000000
        80000080000000808000800000008000800080800000C0C0C000808080000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00388888888877
        F7F787F8888888888333333F00004444400888FFF444448888888888F333FF8F
        000033334D5007FFF4333388888888883338888F0000333345D50FFFF4333333
        338F888F3338F33F000033334D5D0FFFF43333333388788F3338F33F00003333
        45D50FEFE4333333338F878F3338F33F000033334D5D0FFFF43333333388788F
        3338F33F0000333345D50FEFE4333333338F878F3338F33F000033334D5D0FFF
        F43333333388788F3338F33F0000333345D50FEFE4333333338F878F3338F33F
        000033334D5D0EFEF43333333388788F3338F33F0000333345D50FEFE4333333
        338F878F3338F33F000033334D5D0EFEF43333333388788F3338F33F00003333
        4444444444333333338F8F8FFFF8F33F00003333333333333333333333888888
        8888333F00003333330000003333333333333FFFFFF3333F00003333330AAAA0
        333333333333888888F3333F00003333330000003333333333338FFFF8F3333F
        0000}
      NumGlyphs = 2
    end
  end
  object pnlCabecalho: TPanel
    Left = 0
    Top = 0
    Width = 535
    Height = 41
    Align = alTop
    BevelInner = bvLowered
    BevelWidth = 2
    Caption = 'Altera'#231#227'o de Pre'#231'os por Percentual'
    Color = clWhite
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlue
    Font.Height = -27
    Font.Name = 'Times New Roman'
    Font.Style = [fsBold, fsItalic]
    ParentBackground = False
    ParentFont = False
    TabOrder = 3
  end
  object dtsExibirAlteracaoPreco: TDataSource
    DataSet = CDS_ALTERACAO_PRECO
    Left = 456
    Top = 208
  end
  object spAlterarTodos: TZStoredProc
    Connection = DtmGeral.ZConexaoBanco
    Params = <
      item
        DataType = ftInteger
        Name = 'PQUANTIDADE'
        ParamType = ptResult
      end
      item
        DataType = ftSmallint
        Name = 'PEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'VPRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PUSUARIO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'VPRECO_NOVO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PREAJUSTE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PMARCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSECAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSUBSECAO'
        ParamType = ptInput
      end>
    StoredProcName = 'SP_PRECOS_ALTERACAO'
    Left = 336
    Top = 153
    ParamData = <
      item
        DataType = ftInteger
        Name = 'PQUANTIDADE'
        ParamType = ptResult
      end
      item
        DataType = ftSmallint
        Name = 'PEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftInteger
        Name = 'VPRODUTO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PUSUARIO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'VPRECO_NOVO'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PREAJUSTE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PMARCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSECAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSUBSECAO'
        ParamType = ptInput
      end>
  end
  object CDS_ALTERACAO_PRECO: TClientDataSet
    Aggregates = <>
    Params = <
      item
        DataType = ftInteger
        Name = 'PCODPRODUTO'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PDSCPRODUTO'
        ParamType = ptResult
      end
      item
        DataType = ftFloat
        Name = 'PPRECOATUAL'
        ParamType = ptResult
      end
      item
        DataType = ftFloat
        Name = 'PPRECONOVO'
        ParamType = ptResult
      end
      item
        DataType = ftSmallint
        Name = 'PEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PREAJUSTE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PMARCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSECAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSUBSECAO'
        ParamType = ptInput
      end>
    ProviderName = 'DSP_ALTERACAOPRECO'
    Left = 72
    Top = 358
  end
  object DSP_ALTERACAOPRECO: TDataSetProvider
    DataSet = SP_EXIBIR_ALTERACAO_EM_MASSA
    Left = 224
    Top = 398
  end
  object SQL_ALTERACAOPRECOS: TZQuery
    Connection = DtmGeral.ZConexaoBanco
    SQL.Strings = (
      
        'SELECT * FROM SP_EXIBIR_ALTERACAO_EM_MASSA (:pEMPRESA, :pREAJUST' +
        'E, :pMARCA, :pSECAO, :pSUBSECAO)')
    Params = <
      item
        DataType = ftUnknown
        Name = 'pEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pREAJUSTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pMARCA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pSECAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pSUBSECAO'
        ParamType = ptUnknown
      end>
    Left = 320
    Top = 350
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'pEMPRESA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pREAJUSTE'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pMARCA'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pSECAO'
        ParamType = ptUnknown
      end
      item
        DataType = ftUnknown
        Name = 'pSUBSECAO'
        ParamType = ptUnknown
      end>
  end
  object SP_EXIBIR_ALTERACAO_EM_MASSA: TZStoredProc
    Connection = DtmGeral.ZConexaoBanco
    Params = <
      item
        DataType = ftInteger
        Name = 'PCODPRODUTO'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PDSCPRODUTO'
        ParamType = ptResult
      end
      item
        DataType = ftFloat
        Name = 'PPRECOATUAL'
        ParamType = ptResult
      end
      item
        DataType = ftFloat
        Name = 'PPRECONOVO'
        ParamType = ptResult
      end
      item
        DataType = ftSmallint
        Name = 'PEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PREAJUSTE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PMARCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSECAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSUBSECAO'
        ParamType = ptInput
      end>
    StoredProcName = 'SP_EXIBIR_ALTERACAO_EM_MASSA'
    Left = 112
    Top = 454
    ParamData = <
      item
        DataType = ftInteger
        Name = 'PCODPRODUTO'
        ParamType = ptResult
      end
      item
        DataType = ftString
        Name = 'PDSCPRODUTO'
        ParamType = ptResult
      end
      item
        DataType = ftFloat
        Name = 'PPRECOATUAL'
        ParamType = ptResult
      end
      item
        DataType = ftFloat
        Name = 'PPRECONOVO'
        ParamType = ptResult
      end
      item
        DataType = ftSmallint
        Name = 'PEMPRESA'
        ParamType = ptInput
      end
      item
        DataType = ftFloat
        Name = 'PREAJUSTE'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PMARCA'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSECAO'
        ParamType = ptInput
      end
      item
        DataType = ftString
        Name = 'PSUBSECAO'
        ParamType = ptInput
      end>
  end
end
